home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
facc10.zip
/
_OVERL.PRG
< prev
next >
Wrap
Text File
|
1995-02-02
|
2KB
|
72 lines
/* _overl.prg: sample .prg file to be called by FACADE-C.EXE.
Compile and link,
clipper _overl
rtlink fi _overl lib nanfor
then execute from the DOS prompt:
facade-c <enter>
*/
/* initialize variables, open tables, do other non-screen stuff here.
Judicious use of dispbegin() and dispend() will also provide ability to
build complex opening screens without disturbing the suspended VGA pcx
image. */
/* ft_* functions are in nanfor.lib; if using another
library, substitute the functions that determine
display adaptor and set display mode */
// for vga pcx hold-on:
if ft_adapter() == 3 // if vga, Facade-C has initiated graphics mode, so
inkey(4) // hold image in view for 4 seconds, then
ft_setmode(3) // return to text mode display.
else // if not vga, Facade-C displays brief "Loading...".
cls // ugly stuff if you don't clear text screen here.
endif
/* do what you will from this point on */
setcursor(0)
if iscolor()
doscolor := setcolor()
setcolor("w+/b")
@ 02,05 clear to 20,76
endif
@ 02,05 to 20,76 double
@ 04,09 say "Here is the sample Clipper .prg _OVERL.EXE executing."
inkey(2)
@ 06,09 say "Your Clipper application must be renamed _OVERL.EXE via the .lnk"
@ 07,09 say "file and executes normally after the sign-on screen is displayed."
inkey(5)
@ 09,09 say "You would rename FACADE-C.EXE to 'MYAPP.EXE' or whatever your"
@ 10,09 say "application was called, so that the end-user executes your"
@ 11,09 say "program's name. Default command-line settings: //E:0 //F:31."
inkey(6)
@ 13,09 say "Your sign-on 640x480x16 pcx file must be renamed _ADMIN.PCX."
inkey(3)
@ 15,09 say "The sign-on loader does not remain in memory; it releases itself"
@ 16,09 say "when it calls the executable named _OVERL.EXE."
inkey(4)
@ 18,09 say ;
"Facade-C (Facade for Clipper), (C) 1994-95 RCCO Research"
inkey(1)
if iscolor()
setcolor(doscolor)
endif
@ 21,07 say ;
"RCCO Research / P. O. Box 196 / Gatlinburg, TN 37738 (U.S.A.)"
?
setcursor(1)
return
// eof _overl.prg